setwd("D:/作业/R语言/附件/实践3")
x=read.csv("x.csv")
s=hclust(dist(x[,3:66]),method = "average")
s1=dendro_data(s,type = "rectangle")
s2=s1$segments
s3=s1$labels
ggplot()+
  geom_segment(data=s2,aes(x=x,y=y,xend=xend,yend=yend))+
  geom_text(data=s3,aes(x=x,y=y,label=label),angle=90)

            